home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / stars.ifx < prev    next >
Text File  |  2004-08-03  |  562b  |  38 lines
  1. /*
  2.  * $VER: Stars 3.0 (13.2.98)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Draws a lot of random stars into the current buffer.
  8.  *
  9.  */
  10.  
  11. OPTIONS RESULTS
  12.  
  13. GetMain ; IF result = "" THEN EXIT ; PARSE VAR result name width height depth .
  14.  
  15. SaveUndo ; Undo Off ; Redraw Off
  16.  
  17. BeginBar 'Stars' 1000
  18.  
  19. DO i = 1 TO 1000
  20.  
  21.    Bar i
  22.    LockGui
  23.    x = randu() * width
  24.    y = randu() * height
  25.    g = random(64,255)
  26.    SetPalette '-1' g g g
  27.    Point x y
  28.    UnlockGui Quiet
  29.  
  30.    END
  31.  
  32. EndBar
  33.  
  34. Undo On ; Redraw On ; Redraw
  35.  
  36. EXIT
  37.  
  38.